home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 18 / Tiger_Disk_018_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ende - 020 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  44 lines
  1. 1 poke53280,11:poke53281,.:fora=0to15:poke53270,a*5:printchr$(147):printchr$(14)
  2. 2 print"[156]           [214][160][197][160][210][160][196][160][193][160][205][160][205][160][212] !!           ";
  3. 5 poke53281,.:print"[147][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169]";
  4. 6 print"[169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";:nexta:
  5. 10 data"[223][169][223][169][223][169][223][169][223][169][223][169][223]":data"[223][169][223][169][223][169][223][169][223][169]was is'n jetzt kaputt?[223][169][223][169][223][169][223][169]"
  6. 15 readb$,a$:print"[169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169]";
  7. 20 c$=a$+b$:l=len(c$):d$=c$+c$:fori=1tol:nexti:forc=4to10:poke646,c:
  8. 25 printtab(22)"[145][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";:
  9. 30 print"[169][223]oh, mann![169][223][169][223][169][223][169][223]"mid$(c$,i,40)+(b$+a$):ti$="000003":wait161,1:
  10. 35 nextc: printchr$(142)
  11. 55 forz=23to0step-1:poke677,z
  12. 60 z1=217+z:h=peek(z1)or128
  13. 65 fori=1to25-z
  14. 70 sys59777:pokez1,h:nexti,z:poke53270,11
  15. 100 forx=0to24:poke54272+x,0:nextx
  16. 110 poke53280,.:poke53281,.:forc=0to29:poke646,c
  17. 120 printchr$(147)" warum geht'n das nicht? ";:nextc
  18. 130 ti$="000003":wait161,1
  19. 140 v=54272:form=0to11:ready::pokev+m,y:nextm:pokev+24,15:pokev+4,129:pokev+5,229
  20. 150 data0,4,0,6,0,14,25,23,19,9,4,0:ti$="000002":wait161,1:goto160
  21. 160 ho=999:an=15:de=12:ha=10:au=5:we=33:ve=3:da=1000:vo=15
  22. 170 poke54296,vo:poke54278,ha*16+au:forc=0to5 :poke646,c:sys65001
  23. 180 print"   hat mein compi jetzt etwa 'ne macke??";:print"[145] "
  24. 190 b=int(rnd(0)*127)+1.5:poke53272,b
  25. 200 poke54277,an*16+de:poke54275,ve
  26. 210 nextc:poke53272,21
  27. 220 poke54273,ho/256:poke54272,ho-(int(ho/256)*256):
  28. 230 ti$="000003":wait161,1:print"[147][158]          hoffentlich nicht!!!"
  29. 240 fora=0to60:poke53270,a:nexta:ti$="000004":wait161,1
  30. 250 poke54276,we:forw=0toda:nextw:vo=9:poke54296,vo
  31. 260 print"     aber irgendwas stimmt nicht...":ti$="000003":wait161,1
  32. 270 s=54272:fori=0to6:readx:pokes+i,x:next:pokes+24,15:pokes+4,33:data0,30,0,4,,11,11
  33. 280 poke54276,we+17 :forz=0to5:poke646,z:poke56325,0:print"[157][157][157][157][157][157][157][157][157]"
  34. 290 print"[145][145][184][184][183][163][163][183][184][184][183][163][163][183][184][184] bloss was? [184][184][183][163][163][183][184][184][183][163][163][183][184][184]";:nextz:
  35. 300 print"[147]ach so! [156]die diskette ist zu ende!!" :poke56325,58:poke53334,11
  36. 310 print"[129]          na, dann   tschuess!":ti$="000003":wait161,1
  37. 320 print"[147][151]";:print"";
  38. 330 reada$:ifa$="0"then370
  39. 340 printtab((15 -len(a$))/2)a$:goto330
  40. 350 data gemacht von,l u k i a n,===========
  41. 360 data im juni '95,0
  42. 370 poke56325,1:fori=0to150:next     :print"[155]  "
  43. 380 poke56325,58:ti$="000004":wait161,1:sys58253
  44.